home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / zoomhint.zip / WSASC.BAS < prev    next >
BASIC Source File  |  1993-12-16  |  768b  |  47 lines

  1. REM make ASCII from WS.f     12-16-92
  2.  
  3. CALL "c:"
  4. CALL "cd\text
  5. CALL "xcopy *.f \zoom"
  6. CALL "xcopy *.f d:\donfax"
  7. CALL "cd\zoom"
  8. CALL "dir *.f >f.fls"
  9.  
  10. F=1
  11. DIM 10WSF$(300)
  12. OPEN "I",#1,"f.fls"
  13. WHILE NOT EOF(1)
  14.   INPUT#1,F$
  15.   WSF$(F)=F$:PRINT WSF$(F)
  16.   F=F+1
  17. WEND
  18. CLOSE
  19.  
  20. CALL "del *.a"
  21. FF=F-1
  22. FOR I=5 TO FF
  23.   FA$=LEFT$(WSF$(I),8)
  24.   JJ=0
  25.   FOR J=1 TO 8
  26.     A$=MID$(FA$,J,1)
  27.     IF A$=CHR$(32) AND JJ=0 THEN JJ=J-1
  28.   NEXT
  29.   IF JJ<>0 THEN FA$=LEFT$(FA$,JJ)
  30.   PRINT FA$+".F to "FA$+".A"
  31.   OLD$=FA$+".f "
  32.   NEW$=FA$+".a"
  33.   STRIP$="cleanse "+OLD$+NEW$
  34.   CALL STRIP$
  35. NEXT
  36. CALL "del *.f"
  37. CALL "xcopy *.a d:\tpb\zoom\*.
  38.  
  39. "d"
  40. CALL "D:"
  41. CALL "CD\TPB\ZOOM"
  42. CALL "DEL *.exe"
  43. CALL "lha a zoomhint"
  44. CALL "lha s zoomhint"
  45. CALL "del *.lzh"
  46.  
  47.